home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 7 / BBS in a Box - Macintosh - Volume VII (BBS in a Box) (January 1993).iso / Files / Prog / T / Think-Pascal-7.0.cpt / THINK Pascal Interfaces / Timer.p < prev    next >
Encoding:
Text File  |  1991-04-03  |  921 b   |  65 lines  |  [TEXT/PJMM]
  1. {    This file has been processed by The THINK Pascal Source Converter, v1.1.    }
  2.  
  3. {
  4. Created: Sunday, January 6, 1991 at 11:25 PM
  5.     Timer.p
  6.     Pascal Interface to the Macintosh Libraries
  7.  
  8.         Copyright Apple Computer, Inc.    1985-1990
  9.         All rights reserved
  10. }
  11.  
  12.  
  13. {$IFC UNDEFINED UsingIncludes}
  14. {$SETC UsingIncludes := 0}
  15. {$ENDC}
  16.  
  17.  
  18.     UNIT Timer;
  19.     INTERFACE USES    Types,OSUtils;
  20.  
  21.  
  22.  
  23.  
  24.  
  25.  
  26.  
  27.  
  28.  
  29.  
  30.  
  31.  
  32.  
  33.  
  34.  
  35.  
  36. TYPE
  37. TMTaskPtr = ^TMTask;
  38. TMTask = RECORD
  39.     qLink: QElemPtr;
  40.     qType: INTEGER;
  41.     tmAddr: ProcPtr;
  42.     tmCount: LONGINT;
  43.     tmWakeUp: LONGINT;
  44.     tmReserved: LONGINT;
  45.     END;
  46.  
  47.  
  48. PROCEDURE InsTime(tmTaskPtr: QElemPtr);
  49.     INLINE $205F,$A058;
  50. PROCEDURE InsXTime(tmTaskPtr: QElemPtr);
  51.     INLINE $205F,$A458;
  52. PROCEDURE PrimeTime(tmTaskPtr: QElemPtr;count: LONGINT);
  53.     INLINE $201F,$205F,$A05A;
  54. PROCEDURE RmvTime(tmTaskPtr: QElemPtr);
  55.     INLINE $205F,$A059;
  56.  
  57.  
  58.     { UsingTimer }
  59.  
  60.  
  61.     IMPLEMENTATION
  62. END.
  63.  
  64.  
  65.